home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagn_r.zip
/
NETWORK.SWG
/
0005_ISFILOPN.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
273b
|
16 lines
Var
Fi : File;
Function ISOpen(Var Fil:File):Boolean;
(* Returns True is File has is open ON A NETWORK!!! *)
Var
P:^Byte;
begin
P:=@Fil;
If P^=0 then IsOpen:=False else IsOpen:=True;
end;
begin
Assign(Fi,'FileOPEN.PAS');
Writeln(ISOpen(Fi));
end.